IF feld!(position_x%(i%),position_y%(i%))<>0 OR position_x%(i%)<1 OR position_x%(i%)>159 OR position_y%(i%)<6 OR position_y%(i%)>98 OR (futter%(i%)=<0 AND fu!=-1)
IF position_y%(1)=position_y%(2) AND position_x%(1)=position_x%(2)
PRINT AT(1,1),"Beide verloren ! "
ELSE
IF ueben!=0
IF i%=1
ii%=m%
ELSE
ii%=h%
ENDIF
INC gewinn%(ii%)
PRINT AT(1,1);name$(ii%);" hat gewonnen ! << SPACE >> "
ELSE
IF vollgefress!=0
PRINT AT(1,1);"Und Tschüß ! << SPACE >>"
ELSE
PRINT AT(1,1);"Du hast genug gefressen ! << SPACE >>"
ENDIF
ENDIF
ENDIF
DO
k$=INKEY$
IF k$=" " OR ASC(k$)=27
go_out!=TRUE
IF ASC(k$)=27
go_out_out!=TRUE
ENDIF
ENDIF
k$=""
EXIT IF go_out!=TRUE
LOOP
ENDIF
feld!(position_x%(i%),position_y%(i%))=-1
PUT position_x%(i%)*4,position_y%(i%)*4,a$
EXIT IF go_out!=TRUE
NEXT t%
EXIT IF go_out!=TRUE
NEXT i%
EXIT IF go_out!=TRUE
LOOP
IF joy!=-1
joy$=CHR$(&H15)
maus$=CHR$(&H8)
VOID XBIOS(&H19,3,L:VARPTR(joy$))
VOID XBIOS(&H19,3,L:VARPTR(maus$))
ENDIF
CLS
RETURN
PROCEDURE fpara
SGET bild3$
tfutter$=STR$(tfutter%)
efutter$=STR$(efutter%)
hfutter$=STR$(hfutter%)
PRINT "Wieviel Reserve besitzt jede Schlange zu Beginn ?"
FORM INPUT 4 AS efutter$
PRINT "Wieviel Züge pro Abzug ?"
FORM INPUT 3 AS tfutter$
PRINT "Ab wieviel Potential hat eine Schlange gewonnen ?"
